home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PINBSRC.ZIP / _TISCH1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-07-25  |  1.9 KB  |  81 lines
  1. procedure thermo(tmp:byte); forward;
  2.  
  3. procedure Init_Tisch1;
  4.   var t : byte;
  5. begin
  6.   for t:=0 to 255 do set_rgb_color(t,pal[t].r,pal[t].g,pal[t].b );
  7.   {}
  8.   Kurven := 0;
  9.   Lichter1[250] := 0;  Lichter1[251] := 0;  Lichter1[252] := 0;
  10.   Lichter2[247] := 0;  Lichter2[248] := 0;  Lichter2[249] := 0;
  11.   Lichter3[244] := 0;  Lichter3[245] := 0;  Lichter3[246] := 0;
  12.   Licht4   := 0;
  13.   PushUp := true;
  14.   Bonus    := 0;
  15.   MAXFarbe := 234; {235-255}
  16.   temp := 3;
  17.   thermo(temp);
  18.   PCSspe[1] := 0;
  19.   PCSspe[2] := 0;
  20.   PCSspe[3] := 0;
  21.   special := 0;
  22.   BumpCount := 0;
  23. end;
  24.  
  25. {z :-> 0-6 }
  26. procedure thermo(tmp : byte);
  27.   var z : byte;
  28. begin
  29.   for z := 1 to 6 do
  30.     if z <= tmp then begin
  31.           port[$3c8] := 55+z;
  32.           port[$3c9] := 0;port[$3c9] := 47; port[$3c9] := 47;
  33.         end else begin
  34.             port[$3c8] := 55+z;
  35.             port[$3c9] := 50; port[$3c9] := 0; port[$3c9] := 0;
  36.           end;
  37.   if temp = 0 then begin
  38.       display('ATTENTION:');
  39.       repeat led_anzeige; until led_status = 0;
  40.       delay(2000);
  41.       display('TEMP. OVERHEAT!');
  42.       repeat led_anzeige; until led_status = 0;
  43.       delay(2000);
  44.       display('TURNED FIRE OFF!');
  45.       repeat led_anzeige; until led_status = 0;
  46.       delay(2000);
  47.       PushUp := false;
  48.       set_rgb_color(40,10,10,60);
  49.       set_rgb_color(41,10,10,50);
  50.       set_rgb_color(42,10,10,40);
  51.       set_rgb_color(43,10,10,30);
  52.     end;
  53. end;
  54.  
  55. procedure flameflacker;
  56. begin
  57.   port[$3c8] := 40;
  58.   port[$3c9] := 45+random(15);
  59.   port[$3c9] := 0;
  60.   port[$3c9] := 0;
  61.  
  62.   port[$3c8] := 41;
  63.   port[$3c9] := 45+random(15);
  64.   port[$3c9] := 8+random(15);
  65.   port[$3c9] := 0;
  66.  
  67.   port[$3c8] := 42;
  68.   port[$3c9] := 45+random(15);
  69.   port[$3c9] := 22+random(15);
  70.   port[$3c9] := 0;
  71.  
  72.   port[$3c8] := 43;
  73.   port[$3c9] := 45+random(15);
  74.   port[$3c9] := 38+random(13);
  75.   port[$3c9] := 0;
  76.  
  77. end;
  78.  
  79.  
  80.  
  81.